|
400
|
How can I display the column using currency format and enlarge the font for certain values
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "9.94" to Nothing
Get ComAddItem of hoItems "11.94" to Nothing
Get ComAddItem of hoItems "1000" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
399
|
How can I get the number of occurrences of a specified string in the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "occurrences" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "lower(%0) count 'o'"
Set ComFormatColumn of hoColumn to "'contains ' + value + ' of \'o\' chars'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1 oooof the root" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
398
|
How can I display dates in my format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/21/2001" to Nothing
Get ComAddItem of hoItems "2/22/2002" to Nothing
Get ComAddItem of hoItems "3/13/2003" to Nothing
Get ComAddItem of hoItems "4/24/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
397
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "shortdate(value)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "2/2/2002" to Nothing
Get ComAddItem of hoItems "3/3/2003" to Nothing
Get ComAddItem of hoItems "4/4/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
396
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "longdate(value)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "2/2/2002" to Nothing
Get ComAddItem of hoItems "3/3/2003" to Nothing
Get ComAddItem of hoItems "4/4/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
395
|
How can I display only the right part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Right" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 right 2"
Set ComFormatColumn of hoColumn to "'"' + value + '"'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
394
|
How can I display only the left part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Left" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 left 2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
393
|
How can I display true or false instead 0 and -1
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Boolean" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "value != 0 ? 'true' : 'false'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems true to Nothing
Get ComAddItem of hoItems false to Nothing
Get ComAddItem of hoItems true to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
392
|
How can I display icons or images instead numbers
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Icons" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "'The cell displays the icon <img>'+value+'</img> instead ' + value"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
391
|
How can I display the column using currency
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "currency(dbl(value))"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "0" to Nothing
Get ComAddItem of hoItems 5 to Nothing
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
390
|
How can I display the currency only for not empty cells
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "len(%0) ? currency(dbl(%0)) : ''"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "0" to Nothing
Set ComItemBackColor of hoItems (ComAddItem(hoItems,Nothing)) to (RGB(255,128,128))
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
389
|
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Duration" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellCaption of hoItems h 1 to "1/14/2001"
Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
Set ComCellCaption of hoItems h 1 to "3/14/2002 1:00:00 PM"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellCaption of hoItems h 1 to "4/11/2003 11:00:00 AM"
Send Destroy to hoItems
End_Procedure
|
|
388
|
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Start" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to ""D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellCaption of hoItems h 1 to "1/14/2001 11:00:00 PM"
Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
Set ComCellCaption of hoItems h 1 to "3/14/2002 1:00:00 PM"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellCaption of hoItems h 1 to "4/11/2003 11:00:00 AM"
Send Destroy to hoItems
End_Procedure
|
|
387
|
How can I display the number of days between two dates
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Start" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "(date(%1)-date(%0)) + ' days'"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellCaption of hoItems h 1 to "1/14/2001"
Get ComAddItem of hoItems "2/22/2002" to h
Set ComCellCaption of hoItems h 1 to "3/14/2002"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellCaption of hoItems h 1 to "4/11/2003"
Send Destroy to hoItems
End_Procedure
|
|
386
|
How can I get second part of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Second" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "sec(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:01:22 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:23:01 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:11:59 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
385
|
How can I get minute part of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Minute" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "min(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:01:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:23:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:11:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
384
|
How can I check the hour part only so I know it was afternoon
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "hour(%0)>=12" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Hour" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "hour(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
383
|
What about a function to get the day in the week, or days since Sunday
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "WeekDay" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "weekday(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
382
|
Is there any function to get the day of the year or number of days since January 1st
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Day since January 1st" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "yearday(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
381
|
How can I display only the day of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Day" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "day(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
380
|
How can I display only the month of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Month" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "month(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
379
|
How can I get only the year part from a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Year" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "year(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
378
|
Can I convert the expression to date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "date(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "30000.99" to Nothing
Get ComAddItem of hoItems "3561.23" to Nothing
Get ComAddItem of hoItems "1232.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
377
|
Can I convert the expression to a number, double or float
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Number + 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "dbl(%0)+2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
376
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "LongFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "longdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
375
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ShortFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "shortdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
374
|
How can I display the time only of a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Time" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "'time is:' + time(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
373
|
Is there any function to display currencies, or money formatted as in the control panel
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "currency(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
372
|
How can I convert the expression to a string so I can look into the date string expression for month's name
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Str" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "str(%0) + ' AA'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
371
|
Can I display the absolute value or positive part of the number
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Abs" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "abs(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
370
|
Is there any function to get largest number with no fraction part that is not greater than the value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Floor" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "floor(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
369
|
Is there any function to round the values base on the .5 value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Round" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "round(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
368
|
How can I get or display the integer part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Int" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "int(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
367
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "proper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "root" to h
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
366
|
Is there any option to display cells in uppercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "upper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
365
|
Is there any option to display cells in lowercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "lower(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
364
|
How can I mark the cells that has a specified type, ie strings only
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "type(%0) = 8" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h 2 to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
363
|
How can I bold the items that contains data or those who displays empty strings
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "not len(%1)=0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Variant hC
Get ComInsertItem of hoItems h "Child 2" to hC
Set ComCellCaption of hoItems hC 1 to "1"
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
362
|
Can I change the background color for items or cells that contains a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 contains 'hi'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
361
|
Is there any option to change the fore color for cells or items that ends with a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 endwith '22'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 1.22" to Nothing
Get ComInsertItem of hoItems h "Child 2.22" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
360
|
How can I highlight the cells or items that starts with a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 startwith 'C'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComUnderline of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
359
|
How can I change the background color or the visual appearance using ebn for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 16777216
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Column 3" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexHeaderBackColor to 16777471
Send Destroy to hoColumn1
Get ComAdd of hoColumns "Column 4" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
358
|
How can I change the background color for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 8439039
Send Destroy to hoColumn
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
357
|
Does your control support prompt feature
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComAutoComplete to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComPrompt of hoColumn to "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 1 to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 2 to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
356
|
How can I display the column's header using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 128
Set ComHeaderSingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "This is just a column that should break the header." to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "This is just another column that should break the header." to Nothing
Send Destroy to hoColumns1
End_Procedure
|
|
355
|
How can I sort the value gets listed in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComMarkSearchColumn to False
Set ComDescription OLEexFilterBarAll to ""
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexSortItemsDesc
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComDisplayFilterPattern of hoColumn1 to False
Set ComFilterList of hoColumn1 to OLEexSortItemsAsc
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Z3" to h
Set ComCellCaption of hoItems h 1 to "C"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Z1")) 1 to "B"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Z2")) 1 to "A"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
354
|
Is there any property to disable the popup/context menu being shown when the user does a right click in the control's label area
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowEditContextMenu of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 1 to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 2 to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
353
|
How can I align the text/caption on the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartCaption OLEexHScroll OLEexLowerBackPart to "left"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexLowerBackPart to OLELeftAlignment
Set ComScrollPartCaption OLEexHScroll OLEexUpperBackPart to "right"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexUpperBackPart to OLERightAlignment
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns 1 to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 2 to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 3 to Nothing
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Get ComAdd of hoColumns3 4 to Nothing
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 5 to Nothing
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 6 to Nothing
Send Destroy to hoColumns5
End_Procedure
|
|
352
|
Does you control support RTL languages or if there is a property RightToLeft
Procedure OnCreate
Forward Send OnCreate
Set ComRightToLeft to True
Set ComItemsAllowSizing to OLEexResizeItem
Set ComDrawGridLines to OLEexHLines
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComScrollBySingleLine to True
Set ComDefaultItemHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLERightAlignment
Set ComHeaderAlignment of hoColumn to OLERightAlignment
Set ComEditAlignment of hoColumn to OLERightAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Set ComItemHeight of hoItems (ComInsertItem(hoItems,(ComAddItem(hoItems,"Parent")),"Item 2")) to 48
Get ComAddItem of hoItems "Item 3" to Nothing
Set ComExpandItem of hoItems (ComItemByIndex(hoItems,1)) to True
Send Destroy to hoItems
End_Procedure
|
|
351
|
How do I enable resizing all the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeAllItems
Set ComDrawGridLines to OLEexHLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
350
|
How can I remove the filter
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComApplyFilter
Send ComClearFilter
End_Procedure
|
|
349
|
How do I display the icons being selected in the control's label
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellImage of hoItems (ComAddItem(hoItems,"Image 1")) 0 to 1
Set ComCellImage of hoItems (ComAddItem(hoItems,"Image 2")) 0 to 2
Set ComCellImage of hoItems (ComAddItem(hoItems,"Image 3")) 0 to 3
Send Destroy to hoItems
Set ComAssignEditImageOnSelect 0 to True
Set ComValue to "Image 2"
End_Procedure
|
|
348
|
How do I select a value
Procedure OnCreate
Forward Send OnCreate
Set ComIntegralHeight to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
Set ComValue to "Root 1.1"
End_Procedure
|
|
347
|
How do I select a value
Procedure OnCreate
Forward Send OnCreate
Set ComIntegralHeight to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
Set ComSelect 1 to "Root 1.2"
End_Procedure
|
|
346
|
How do change the visual appearance for the drop down border, using EBN
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComDropDownBorder to |CI$1000000
End_Procedure
|
|
345
|
How do I remove the drop down's border
Procedure OnCreate
Forward Send OnCreate
Set ComDropDownBorder to OLENone2
End_Procedure
|
|
344
|
How can I change the foreground color for edit controls
Procedure OnCreate
Forward Send OnCreate
Set ComForeColorEdit to (RGB(255,0,0))
Set ComIntegralHeight to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
Set ComSelect 0 to "Root 1.1"
End_Procedure
|
|
343
|
How can I change the background color for edit controls
Procedure OnCreate
Forward Send OnCreate
Set ComBackColorEdit to (RGB(255,0,0))
Set ComIntegralHeight to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
Set ComSelect 0 to "Root 1.1"
End_Procedure
|
|
342
|
How can I hide the drop down buttons when the control loses the focus
Procedure OnCreate
Forward Send OnCreate
Set ComHideDropDownButton to True
Set ComIntegralHeight to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
End_Procedure
|
|
341
|
How can I ensure that the drop down portions doesn't show partial items
Procedure OnCreate
Forward Send OnCreate
Set ComIntegralHeight to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
End_Procedure
|
|
340
|
How can I close the drop down window when user double clicks it
Procedure OnCreate
Forward Send OnCreate
Set ComCloseOnDblClk to True
Set ComLinesAtRoot to OLEexGroupLinesAtRoot
Set ComTreeColumnIndex to 1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1.1" to h
Set ComCellCaption of hoItems h 1 to "Root 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 2.1")) 1 to "Child 2.2"
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2.1" to h
Set ComCellCaption of hoItems h 1 to "Root 2.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Child 1.1")) 1 to "Child 1.2"
Send Destroy to hoItems
End_Procedure
|
|
339
|
How do I get the handle of the drop down window
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant vColumnCaption
Get ComhWndDropDown to vColumnCaption
Get ComAdd of hoColumns vColumnCaption to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
338
|
How do I specify the height of the control's label
Procedure OnCreate
Forward Send OnCreate
Set ComLabelHeight to 34
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
337
|
The control selects the portion of text that doesn't match with the selected item. How can I avoid that
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSelect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
336
|
How can I show the drop down window as soon as user starts typing in the control
Procedure OnCreate
Forward Send OnCreate
Set ComAutoDropDown to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
335
|
How do I change the text in the edit or label area
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
Set ComEditText 0 to "Test"
End_Procedure
|
|
334
|
How do I lock or make read-only the control
Procedure OnCreate
Forward Send OnCreate
Set ComLocked to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
333
|
How do I let user to resize only the height of the drop down window, at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSizeGrip to True
Set ComAllowHResize to False
Set ComMinWidthList to 100
Set ComMinHeightList to 100
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
332
|
How do I let user to resize only the width of the drop down window, at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSizeGrip to True
Set ComAllowVResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
331
|
How do I let user to resize the drop down window, at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComAllowSizeGrip to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
330
|
How do I specify the height of the drop down window
Procedure OnCreate
Forward Send OnCreate
Set ComHeightList Nothing to 400
Set ComMinWidthList to 100
Set ComAllowSizeGrip to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
329
|
How do I specify the minimum height of the drop down window
Procedure OnCreate
Forward Send OnCreate
Set ComMinHeightList to 100
Set ComAllowSizeGrip to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
328
|
How do I specify the width of the drop down window
Procedure OnCreate
Forward Send OnCreate
Set ComWidthList Nothing to 100
Set ComAllowSizeGrip to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
327
|
How do I specify the minimum width of the drop down window
Procedure OnCreate
Forward Send OnCreate
Set ComMinWidthList to 100
Set ComAllowSizeGrip to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
326
|
I have multiple columns, how can I display a single edit in the control's label
Procedure OnCreate
Forward Send OnCreate
Set ComSingleEdit to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 1")) 1 to "SubItem 1"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 2")) 1 to "SubItem 2"
Set ComCellCaption of hoItems (ComAddItem(hoItems,"Item 3")) 1 to "SubItem 3"
Send Destroy to hoItems
End_Procedure
|
|
325
|
How do I turn off the auto complete feature
Procedure OnCreate
Forward Send OnCreate
Set ComAutoComplete to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
324
|
The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
Procedure OnCreate
Forward Send OnCreate
Set ComStyle to OLEDropDownList
End_Procedure
|
|
323
|
Is there any option to align the header to the left and the data to the right
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Left" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLELeftAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Right" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComAlignment of hoColumn1 to OLERightAlignment
Set ComHeaderAlignment of hoColumn1 to OLERightAlignment
Set ComEditAlignment of hoColumn1 to OLERightAlignment
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,"left")) 1 to "right"
Send Destroy to hoItems
End_Procedure
|
|
322
|
How do I change the control's border, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to |CI$1000000
End_Procedure
|
|
321
|
Can I change the default border of the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
320
|
Can I change the background color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipBackColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
319
|
Does the tooltip support HTML format
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
318
|
Can I change the forecolor for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Set ComBackground OLEexToolTipForeColor to (RGB(255,0,0))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "this is a tooltip assigned to a column"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
317
|
Can I change the foreground color for the tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "tootip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComToolTip of hoColumn to "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
|
|
316
|
How can I merge cells
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "this cell merges the first two columns" to h
Set ComCellMerge of hoItems h 0 to 1
Get ComAddItem of hoItems Nothing to h
Set ComCellCaption of hoItems h 1 to "this cell merges the last two columns"
Set ComCellMerge of hoItems h 1 to 2
Get ComAddItem of hoItems "this cell merges the all three columns" to h
Set ComCellMerge of hoItems h 0 to 1
Set ComCellMerge of hoItems h 0 to 2
Get ComAddItem of hoItems "this draws a divider item" to h
Set ComItemDivider of hoItems h to 0
Send Destroy to hoItems
End_Procedure
|
|
315
|
How can I merge cells
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text merges all cells in the item" to h
Set ComItemDivider of hoItems h to 0
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
314
|
How can I change the color for separator / dividers items
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems Nothing to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 6
Set ComSelectableItem of hoItems h to False
Get ComAddItem of hoItems "Cell 2" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
313
|
How can I add separator - dividers items
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems Nothing to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComItemDividerLineAlignment of hoItems h to OLEDividerCenter
Set ComItemHeight of hoItems h to 6
Set ComSelectableItem of hoItems h to False
Get ComAddItem of hoItems "Cell 2" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Send Destroy to hoItems
End_Procedure
|
|
312
|
Can I change the style of the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Set ComScrollBySingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEDoubleDotLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Set ComItemHeight of hoItems h to 24
Send Destroy to hoItems
End_Procedure
|
|
311
|
Can I remove the line being displayed by a divider item
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComItemDividerLine of hoItems h to OLEEmptyLine
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
310
|
How can I display a divider item, merging all cells
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComTreeColumnIndex to -1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Get ComAddItem of hoItems "This is bit of text that's displayed on the entire item, divider." to h
Set ComItemDivider of hoItems h to 0
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Send Destroy to hoItems
End_Procedure
|
|
309
|
How can I fix or lock items
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEexTop,0)) 0 to "This is a locked item, fixed to the top side of the control."
Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEexTop,0)) to (RGB(196,196,186))
Set ComLockedItemCount of hoItems OLEexBottom to 2
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEexBottom,0)) 0 to "This is a locked item, fixed to the top side of the control."
Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEexBottom,0)) to (RGB(196,196,186))
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEexBottom,1)) 0 to "This is a locked item, fixed to the top side of the control."
Set ComItemBackColor of hoItems (ComLockedItem(hoItems,OLEexBottom,1)) to (RGB(186,186,186))
Send Destroy to hoItems
End_Procedure
|
|
308
|
How can I fix or lock an item on the bottom side of the control
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexBottom to 1
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEexBottom,0)) 0 to "This is a locked item, fixed to the bottom side of the control."
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
307
|
How can I fix or lock an item on the top of the control
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Set ComCellCaption of hoItems (ComLockedItem(hoItems,OLEexTop,0)) 0 to "This is a locked item, fixed to the top side of the control."
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
306
|
Is there any function to limit the height of the items when I display it using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1" to h
Set ComCellCaption of hoItems h 1 to "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
Set ComCellSingleLine of hoItems h 1 to False
Set ComItemMaxHeight of hoItems h to 48
Send Destroy to hoItems
End_Procedure
|
|
305
|
Why I cannot center my cells in the column
Procedure OnCreate
Forward Send OnCreate
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Default" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAlignment of hoColumn to OLECenterAlignment
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "item 2" to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
304
|
How can I align the cell to the left, center or to the right
Procedure OnCreate
Forward Send OnCreate
Set ComTreeColumnIndex to -1
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"left")) 0 to OLELeftAlignment
Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"center")) 0 to OLECenterAlignment
Set ComCellHAlignment of hoItems (ComAddItem(hoItems,"right")) 0 to OLERightAlignment
Send Destroy to hoItems
End_Procedure
|
|
303
|
How do I apply HTML format to a cell
Procedure OnCreate
Forward Send OnCreate
Set ComTreeColumnIndex to -1
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComHTMLPicture "p1" to "c:\exontrol\images\zipdisk.gif"
Set ComHTMLPicture "p2" to "c:\exontrol\images\auction.gif"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "The following item shows some of the HTML format supported:" to h
Set ComCellHAlignment of hoItems h 0 to OLECenterAlignment
Get ComAddItem of hoItems "<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor> " to h
Set ComCellCaptionFormat of hoItems h 0 to OLEexHTML
Set ComCellSingleLine of hoItems h 0 to False
Send Destroy to hoItems
End_Procedure
|
|
302
|
How can I change the font for a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "std font" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellCaptionFormat of hoItems1 (ComAddItem(hoItems1,"this <font tahoma;12>is a bit of text with</font> a different font")) 0 to OLEexHTML
Send Destroy to hoItems1
End_Procedure
|
|
301
|
How can I change the font for a cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "default font" to Nothing
Send Destroy to hoItems
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellFont of hoItems1 (ComAddItem(hoItems1,"new font")) 0 to f
Send Destroy to hoItems1
End_Procedure
|